home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H145.ZIP / ASXXXX_4.ZIP / T6801E.ASM < prev    next >
Assembly Source File  |  1990-07-18  |  728b  |  58 lines
  1.     .title    6801 Assembler Error Check
  2.  
  3.     dir    =    0x0100
  4.     offset    =    0x0101
  5.  
  6.     sta a    #32        ;error
  7.     stab    #33        ;error
  8.     std    #1122        ;error
  9.  
  10.     lda a    offset,x    ;error
  11.     ldaa    *dir        ;error
  12.  
  13.     std    #1122        ;error
  14.     sts    #2211        ;error
  15.     stx    #1122        ;error
  16.  
  17.     sub    #20        ;error
  18.  
  19.     jmp    *dir        ;error
  20.     jmp    #2211        ;error
  21.     jsr    #1122        ;error
  22.  
  23.     lda a    *255        ;OK
  24.     lda a    *256        ;error
  25.     lda a    *-1        ;error
  26.     lda a    *-256        ;error
  27.  
  28.  
  29.     aim    #0x10, 4,x    ;error
  30.     eim    #0x10, 4,x    ;error
  31.     oim    #0x10, 4,x    ;error
  32.     tim    #0x10, 4,x    ;error
  33.  
  34.     xgdx            ;error
  35.  
  36.     slp            ;error
  37.  
  38.     .hd6303
  39.  
  40.     aim    #0x10, 4,x    ;ok
  41.     eim    #0x10, 4,x    ;ok
  42.     oim    #0x10, 4,x    ;ok
  43.     tim    #0x10, 4,x    ;ok
  44.  
  45.     xgdx            ;ok
  46.  
  47.     slp            ;ok
  48.  
  49.     .area    A
  50.  
  51. A:    bra    B        ;ok
  52.  
  53.     .area    B
  54.  
  55. B:    bra    A        ;ok
  56.  
  57.  
  58.